home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / outdr210.arc / ORUN.BAT < prev    next >
Encoding:
DOS Batch File  |  1987-05-09  |  1.1 KB  |  56 lines
  1.     set TZ=EST+05
  2.     break off
  3. :OPUS
  4.     opus %1 %2
  5.     if errorlevel 120 goto LASTCALL
  6.     if errorlevel 105 goto SYSOUT
  7.     if errorlevel 100 goto OUTSIDE
  8.     if errorlevel 69 goto OVERSEA
  9.     if errorlevel 66 goto FIDO
  10.     if errorlevel 1 goto END
  11. :LASTCALL
  12.     mailchek update 0/x 12/x 14/x 55/x
  13.     orun %1
  14. :PREMAIL
  15.     scanmail run -delay
  16.     goto OPUS
  17. :POSTMAIL
  18.     arcmail from all
  19.     tossmail run
  20.     mailchek compile 0/x 12/x 14/x 55/x
  21.     goto OPUS
  22. :OUTSIDE
  23.     outdoor /rc:\fido\doors\ /pc:\fido\doors\
  24.     o_fixout %1
  25.     echo off
  26.     ctty com1
  27.     outer /1 128/v 60/l
  28.     ctty con
  29.     baud
  30.     if errorlevel 11 orun c %1 -b2400
  31.     if errorlevel 8 orun c %1 -b1200
  32.     if errorlevel 6 orun c %1 -b300
  33.     goto LASTCALL
  34. :SYSOUT
  35.     outer /1 128/v
  36.     goto OPUS
  37. :OVERSEA
  38.     ren nodelist.sys local.sys
  39.     ren nodelist.idx local.idx
  40.     ren overseas.* nodelist.*
  41.     goto GOFIDO
  42. :LOCAL
  43.     ren nodelist.sys overseas.sys
  44.     ren nodelist.idx overseas.idx
  45.     ren local.* nodelist.*
  46.     goto OPUS
  47. :FIDO
  48.     scanmail run
  49. :GOFIDO
  50.     fido_ibm/m 12/j 128/v
  51.     if errorlevel 35 goto POSTMAIL
  52.     if errorlevel 30 goto OVERSEA
  53.     if errorlevel 25 goto LOCAL
  54. :END
  55.     break on
  56.